home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / COPEIN.SDA / UTILITY (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  2.5 KB  |  130 lines
  1. UTILITY
  2. SEQ formatted GEOS file V1.0
  3. Epson FX-80
  4.     UTILITY
  5. LASTER'S 
  6. ONVERTER 
  7. EDITFUN
  8. TABLES
  9. COPE Source V1.1
  10. COPE Editor V1.1
  11. Untitled
  12. UTILITY
  13. @3@@@M@T@r@
  14. ; -------
  15. Clr_Screen
  16.  LDA #192
  17.  STA DISBUF
  18.  LDA #0
  19.  JSR STPAT
  20.  JSR ILRECT
  21.  .Byte 0,199
  22.  .Word 0,319
  23. ;-----
  24. LoadPage
  25.  and #$7F; clear hi-byte of accum.
  26.  cmp pagenum
  27.  beq LPex
  28.  sta pagenum
  29.  loadw R0:TFName
  30.  jsr OpenRecordFile
  31.  lda pagenum
  32.  jsr PointRecord
  33.  loadw R2:$1000
  34.  loadw R7:PageAddress
  35.  jsr ReadRecord
  36.  jsr CloseRecordFile
  37. pagenum .Byte $FF
  38. ;-----
  39. SchLp
  40.  ldx #255
  41. SchLp1
  42.  lda (CBP),Y ; waste time
  43.  lda (CBP),Y ; waste time
  44.  bne SchLp1
  45.  bne SchLp
  46. ;----
  47. Rst_Scn
  48.   jsr $C1A5
  49.   .Byte 32,127+8
  50.   .Word 64,255+8
  51.  lda #192
  52.   STA DISBUF
  53.   RTS
  54. ;-----
  55. ;----
  56. ;----
  57. L;===
  58.  JSR $C1BD
  59. SAVE2
  60.  lda #SAPAGENO
  61.  jsr LoadPage
  62.  jsr SAVE3
  63. ;-----
  64. SaveAs1
  65.  JSR $C1BD
  66.  lda #SAPAGENO
  67.  jsr LoadPage
  68.  jsr SAVE2
  69. ;-----
  70. FIND; called from menu
  71. JSR $C1BD
  72. FIND3; called from keypress (OGS)
  73. lda #FINDPAGE
  74.  jsr LoadPage
  75.  jsr FIND3b
  76. rptstr1
  77. jmp rpts2 
  78. RPTSTR; replace string routine
  79.  JSR $C1BD
  80. rpts2
  81.  lda #FINDPAGE
  82.  jsr LoadPage
  83.  jsr RP1a
  84. ;-----
  85. PRINT
  86.  JSR $C1BD
  87.  PRINTa
  88. ; if a file is a VLIR file, and then entire doc is
  89. ; selected to print.  then the page in memory
  90. ; will be flushed.  Make sure this page is saved.
  91.  lda #PRINTPAGE
  92.  jsr LoadPage
  93.  jsr PRINT2
  94. ;-----
  95. Do_DB_Box
  96.  lda #128
  97.  sta DISBUF
  98.  lda #2
  99.  jsr $C139 ;SetPatten
  100.  jsr $C19F
  101.  .Byte 32+8,127+8
  102.  .Word  64+8,255+8
  103.  lda #0
  104.  jsr $C139
  105.  jsr $C19F
  106.  .Byte 32,127
  107.  .Word 64,255
  108.  lda #255
  109.  jsr $C127
  110. ;-----
  111. PageGO
  112. jsr $C1BD
  113. PageGO1
  114.  lda #PageMove
  115.  jsr LoadPage
  116.  jsr PageGo
  117. ;-----
  118. BMark; called from menu
  119. JSR $C1BD
  120.  lda #ASAVE
  121.  jsr LoadPage
  122.  jsr BookMark
  123. ;-----
  124. Asave; called from menu
  125. JSR $C1BD
  126.  lda #ASAVE
  127.  jsr LoadPage
  128.  jsr AutoSave
  129. ;----
  130.